www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_add_custom_c_asp_lable.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(aa,bb,cc){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
//------------------v2
if (cc==""||cc==null){cc="2"}
var ccc="<select name=g"+now_pos+">";
ccc=ccc+"<option value=1 ";
if (cc=="1"){ccc=ccc+" selected"};
ccc=ccc+">参数外需加双引号</option>"
ccc=ccc+"<option value=2 ";
if (cc=="2"){ccc=ccc+" selected"};
ccc=ccc+">不需加双引号</option>"
ccc=ccc+"<option value=3 ";
if (cc=="3"){ccc=ccc+" selected"};
ccc=ccc+">不加双引号的纯数字</option>"
ccc=ccc+"</select>";
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td><font color=#ff5588>标签参数名"+now_pos+":<input size=15 name=c"+now_pos+" type=text >,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text size=15 >"+",参数值格式:"+ccc+"</font></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
//------------------v2
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_chk_add_custom_c_asp_lable.asp" method="post">
<table width=730 id="parms" name="parms">
<tr align="left">
<td>
标签保存路径:/Label/custom_Label/<%=request("fpath")%>
</td>
</tr>
<tr align="left">
<td>
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
标签名:{$$my_b_
<input name="bnm" type="text" value="">
}（只能为字母，数字及_号的组合）
</td>
</tr>
<tr align="left">
<td>
标签说明:<textarea name="lbsm" cols=40 rows=3></textarea>
</td>
</tr>
</table>
<table>
<tr align="left">
<td>
<br />
<a href=# onClick="add_p('','','');"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left">
<td colspan="2">
<table>
<tr align="left">
<td colspan="2" height="8">
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td height="130" bgcolor="#AAE0FB">
<%
sssazxa="1"
%>
本标签生成html静态页时的选项1(<strong>此项不要乱改</strong>):</td>
<td bgcolor="#AAE0FB"><table width="94%" height="69" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><strong>1.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="1" <%if sssazxa="1" then response.write "checked"%>>
此标签不含功能类代码(如对提交的评论的处理,会员注册等功能类代码),在生成html静态页后,即使在 放在html生成目录里的原asp文件(由这一asp文件来生成html的那个asp文件)里,也替换原asp文件内的此标签对应的全部asp代码为生成后的html代码,来使原asp文件的各链接为html文件链接,而不是asp文件的链接</td>
</tr>
<tr>
<td height="9"></td>
</tr>
<tr>
<td><strong>2.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="2" <%if sssazxa="2" then response.write "checked"%>>
此标签是纯赋值用的标签，不允许系统在标签编译得到的内容外加上任何辅助性的字符串，如<title>abc</title>，不允许系统加辅助性的字符串而使之变为<title><!--complie_link[$get_title()]-->abc<!--complie_link_end[$get_title()]--></title>，选择本项设置会使本标签失去上面第一项设置里所说的"来使原asp文件的各链接为html文件链接,而不是asp文件的链接"的功能，但不影响其他标签使用第一项设置的功能<strong>,选择本项设置还会使 标签生成html静态页时的选项2 里面设置的所有 对本标签的ajax的js文件调用 都失效</strong></td>
</tr>
<tr>
<td height="4"></td>
</tr>
<tr>
<td><strong>3.</strong>
<input type="radio" name="htmledxa" id="htmledxa" value="3" <%if sssazxa="3" then response.write "checked"%>>
此标签含功能类代码(如对提交的评论的处理,会员注册等功能类代码),在生成html静态页后,保留功能asp代码至 html生成目录里 的原asp文件(由这一asp文件来生成html的那个asp文件)里 <strong>(注意:要保证生成的html页里的所有form表单都保留原来的 提交到原asp文件,而不是提交到生成后的html页里,且提交路径只能用相对路径,不能用任何绝对路径)</strong></td>
</tr>
</table></td>
</tr>
<tr align="left">
<td colspan="2" height="8">
</td>
</tr>
<tr align="left" bgcolor="#DEF3FE">
<td height="130" bgcolor="#AAE0FB">
<%
sssazxaxx=""
%>
本标签生成html静态页时的选项2(<strong>此项不要乱改</strong>):</td>
<td bgcolor="#AAE0FB"><table width="94%" height="69" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><p><strong>如果此标签含访问量统计显示代码或评论列表显示代码等用于实时更新显示的代码,请编辑或新增以下选项:</strong><br>
<br>
<table id="htmeddd">
</table>
<input type="hidden" name="params_lenb" id="params_lenb" value="" />
<br>
<a href="javascript:void(0)" onClick="add_ps('','');"> <span class="STYLE2">点击本处来在生成后的html页里新增一个对本标签的js调用</span></a><br>
<script language="javascript">
var org_pos2=1;
var now_pos2=org_pos2;
function add_ps(aa,bb){
var theTable = document.getElementById("htmeddd");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaabas"+now_pos2;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<span class=STYLE1>生成后的html静态页对本标签的js调用"+now_pos2+":</span>生成本标签对应的javascript的ajax的js文件调用至生成后的html文件里,来实时的显示出访问量或实时的显示出评论列表等需要实时更新显示的东西,标签内访问量显示输出处或评论列表显示输出处(或其他功能的显示输出处)的开始asp代码的自定义开始标记:<input name=sc"+now_pos2+" type=text id=sc"+now_pos2+" size=22 value='"+aa+"'>,标签内访问量显示输出处或评论列表显示输出处(或其他功能的显示输出处)的结束asp代码的自定义结束标记:<input name=sd"+now_pos2+" type=text id=sd"+now_pos2+" size=22 value='"+bb+"'> ,请在下面的标签代码里放好这两个自定义开始标记和自定义结束标记 ,注意标记可以用<!--startt1-->之类注释类代码来标记而不显示出,且标记要唯一,不能和本标签内其他代码字符串重复 .<br><a href='javascript:void(0)' onclick=del_ps('"+theTable.rows[rowNumber].id+"')><span class=STYLE3> 点击本处删除此js调用"+now_pos2+"</span></a></p><hr align=left width=500>"
// theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text value='"+bb+"'></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_lenb");
aa.value=now_pos2;
now_pos2=now_pos2+1;
}
function del_ps(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("htmeddd");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<%if sssazxaxx="" then%>
<script language="javascript">
add_ps("","");
add_ps("","");
</script>
<%end if%>
<%if sssazxaxx<>"" then
sssazxa2=split(sssazxaxx,"$123$121$aspndcpu232$321$")
for qdddpa=0 to ubound(sssazxa2)
sssazxa2_1=sssazxa2(qdddpa)
sssazxa3=split(sssazxa2_1,"$123$121$accndcpu232$321$")
sssazxa3_1=replace_when_complie(replace(sssazxa3(0),chr(34),""))
sssazxa3_2=replace_when_complie(replace(sssazxa3(1),chr(34),""))
%>
<script language="javascript">
add_ps("<%=sssazxa3_1%>","<%=sssazxa3_2%>");
</script>
<%
next
end if
%>
</td>
</tr>
<tr>
<td height="9"></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<tr align="left"><td>
<font style="font-size:14px" color="#3300FF">
标签代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
在以下的 标签代码中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值
<br />调用标签时还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互
<br />
而用$xx_request_asp$i可以读request("i")的值<br />
系统使用的数据库连接对象名为newdsoft_conn_obj ，你可以调用这个连接对象<br />
</font>
</td>
</tr>
<tr align="left">
<td>
<%if request("edittype")="0" then%>
<hr />
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table>
<tr valign="middle" align="center"><td width=80>
标签代码：</td>
<td width=600>
<script src="../../inc/admin.js" type="text/javascript"></script>
<textarea name="Content" cols=70 rows=20></textarea>
<br><a href="javascript:admin_Size(-10,'Content')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<%else%>
<hr />
<br>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<input type=button onClick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里">
<br>
<table><tr valign="middle" align="center"><td width=80>
标签代码：</td>
<td width=600>
<textarea name="Content" style="display:none"></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '100%' ;
oFCKeditor.Height = '500' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;
//-->
</script>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr align="center" width=600>
<td>
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>"/>
<input type="submit" value="添 加" />
</td>
</tr>
</table>
</form>
</div>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
add_p();
add_p();
add_p();
add_p();
add_p();
AJAXfade(1,'l_do');
</script>
<%
AJAXcloseLoader()
%>
</html>